﻿Public Class Notenberechner1

    Public Fach_name As String
    Dim Daten As XML_bearbeiten = New XML_bearbeiten

    Public Sub loading()
        Daten.XMLReader()

        Dim i As Integer

        For i = 0 To Daten.daten.FächerAnz - 1
            ' erste beiden Labels werden Grundkurse
            If Daten.daten.Fächer(i).typ = "Leistungskurs" Then ' Fehler Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
                Dim anzL As Integer = 0
                If anzL = 0 Then
                    Fach_1.Text = Daten.daten.Fächer(i).name
                    anzL = 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld1.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzL = 1 Then
                    Button_Fach2.Text = Daten.daten.Fächer(i).name
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld2.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                Else
                    MsgBox("Es existieren zu viele Leistungskurse")
                End If
            End If
            ' die restlichen Labels werden mit Grundkursen gefüllt
            If Daten.daten.Fächer(i).typ = "Grundkurs" Then
                Dim anzG As Integer = 0
                If anzG = 0 Then
                    Fach_3.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld3.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 1 Then
                    Fach_4.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld4.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 2 Then
                    Fach_5.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld5.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 3 Then
                    Fach_6.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld6.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 4 Then
                    Fach_7.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld7.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 5 Then
                    Fach_8.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld8.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 6 Then
                    Fach_9.Text = Daten.daten.Fächer(i).name
                    anzG = anzG + 1
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld9.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                ElseIf anzG = 7 Then
                    Fach_10.Text = Daten.daten.Fächer(i).name
                    Daten.daten.Fächer(i).calcDurchschnitt()
                    Ld10.Text = Daten.daten.Fächer(i).durchschnitt.ToString
                Else
                    MsgBox("Zu viele Grundkursfächer")
                End If
            End If
        Next

        Dim summe As Double
        For i = 0 To Daten.daten.FächerAnz - 1
            summe = summe + Daten.daten.Fächer(i).durchschnitt
        Next
        GP.Text = summe.ToString
        LabelSchnitt.Text = Math.Round(summe / Daten.daten.FächerAnz, 3)

    End Sub

    Private Sub Notenberechner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        loading()

    End Sub

    Private Sub Button_Fach1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach1.Click
        Fach_name = Fach_1.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach2.Click
        Fach_name = Fach_2.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach3.Click
        Fach_name = Fach_3.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach4.Click
        Fach_name = Fach_4.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach5.Click
        Fach_name = Fach_5.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach6.Click
        Fach_name = Fach_6.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach7.Click
        Fach_name = Fach_7.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach8.Click
        Fach_name = Fach_9.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button_Fach9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fach9.Click
        Fach_name = Fach_10.Text
        Notenauflistung.Show()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Form1.Show()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Fächer.Show()
    End Sub
End Class


